descrizione gestione proprietà
con VBA
esci con vbasintassi.htm
scrolla1.ppt
applicazione delle
proprietà a TextBox in varia combinazione
AutoSize -WordWrap -ScrollBars
-MultiLine con TextBox
Private Sub
CommandButton1_Click()
Rem inizializza proprietà
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 0
TextBox1.MultiLine = False
TextBox2.AutoSize = False
TextBox2.WordWrap = False
TextBox2.ScrollBars = 0
TextBox2.MultiLine = False
TextBox3.AutoSize = False
TextBox3.WordWrap = False
TextBox3.ScrollBars = 0
TextBox3.MultiLine = False
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = "scrivi testo oltre larghezza"
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 1
TextBox1.MultiLine = True
TextBox2.Text = "scrivi testo oltre altezza"
TextBox2.AutoSize = False
TextBox2.WordWrap = False
TextBox2.ScrollBars = 2
TextBox2.MultiLine = True
TextBox3.Text = "testo oltre altezza e larghezza
"
TextBox3.AutoSize = False
TextBox3.WordWrap = False
TextBox3.ScrollBars = 3
TextBox3.MultiLine = True
End Sub
Private Sub UserForm_Click()
End Sub
scrolla2.ppt
varia Multiline-WordWrap
Private Sub CommandButton1_Click()
Rem inizializza proprietà
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 0
TextBox1.MultiLine = False
TextBox2.AutoSize = False
TextBox2.WordWrap = False
TextBox2.ScrollBars = 0
TextBox2.MultiLine = False
TextBox3.AutoSize = False
TextBox3.WordWrap = False
TextBox3.ScrollBars = 0
TextBox3.MultiLine = False
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = "scrivi testo oltre limiti"
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 3
TextBox1.MultiLine = True
TextBox2.Text = "scrivi testo oltre limiti"
TextBox2.AutoSize = False
TextBox2.WordWrap = True
TextBox2.ScrollBars = 3
TextBox2.MultiLine = False
TextBox3.Text = "testo oltre limiti "
TextBox3.AutoSize = False
TextBox3.WordWrap = False
TextBox3.ScrollBars = 3
TextBox3.MultiLine = True
End Sub
varia Autosize
Private Sub
CommandButton1_Click()
Rem inizializza proprietà
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 0
TextBox1.MultiLine = False
TextBox2.AutoSize = False
TextBox2.WordWrap = False
TextBox2.ScrollBars = 0
TextBox2.MultiLine = False
TextBox3.AutoSize = False
TextBox3.WordWrap = False
TextBox3.ScrollBars = 0
TextBox3.MultiLine = False
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = "scrivi testo oltre limiti"
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 3
TextBox1.MultiLine = True
TextBox2.Text = "scrivi testo oltre limiti"
TextBox2.AutoSize = True
TextBox2.WordWrap = True
TextBox2.ScrollBars = 3
TextBox2.MultiLine = False
TextBox3.Text = "testo oltre limiti "
TextBox3.AutoSize = True
TextBox3.WordWrap = False
TextBox3.ScrollBars = 3
TextBox3.MultiLine = True
End Sub
Private Sub UserForm_Click()
End Sub